home *** CD-ROM | disk | FTP | other *** search
/ PC Home 109 / PC Home 109.iso / data1.cab / Program_Files / quiz.dxr / 00020.ls < prev    next >
Encoding:
Text File  |  2001-03-02  |  663 b   |  21 lines
  1. global CorrectAnswers, gSoundPlayedOnce
  2.  
  3. on exitFrame
  4.   handcursor(4)
  5.   handcursor(5)
  6.   set AnswerScore to [68, 39, 41, 42, 43, 44, 45, 46, 47, 48, 40]
  7.   set the text of field "userscore" to the text of field "name" & "!"
  8.   set the textSize of member "userscore" to 24
  9.   set the textStyle of member "userscore" to "bold"
  10.   set the foreColor of member "userscore" to 246
  11.   set the member of sprite 3 to member getAt(AnswerScore, CorrectAnswers + 1) of castLib "QuizPics"
  12.   updateStage()
  13.   if gSoundPlayedOnce = 1 then
  14.     if the memberNum of sprite 3 = 40 then
  15.       playSound(2, "allten.wav")
  16.     end if
  17.     set gSoundPlayedOnce to 0
  18.   end if
  19.   go(the frame)
  20. end
  21.